#!/usr/bin/perl -w

#  FILE:   changeStructure.pl
#  AUTHOR: Ruth Cobos
#  DATE:   12 Jul 2002
#
#  DESCRIPTION: muestra el arbol de la estructura actual y seleccionar temas para modificarlos

# inicializar:
require ("init.pl");
require ("dbData.pl");
require ("dbStruct.pl");
require ("dbOpe.pl");
require ("dbUser.pl");
require ("dbEvent.pl");
require "gui.pl";

# imprimir cabecera
&print_header;

# procesar la entrada al script
%input = &parse_input;

# obtener datos de entrada
if ('GET' eq $ENV{'REQUEST_METHOD'}) {
	$dbName = $input{b};
	$idTopic = $input{t};
	$idStructure = $input{s};
	$idUser = $input{u};

}
#else {
#	$dbName = $input{dbName};
#	$idTopic = $input{idTopic};
#	$idStructure = $input{idStructure};
#}

# obtener datos idioma
($dbLanguage, $IMG) = &get_language($dbName);

# obtener textos
%txts = &get_data ($dbLanguage, "MyForm", "name", "\'changeStructure\'");

## comienzo pagina
print '<html><head><base target="descriptions"></head><body>';
&ImprimeBarraHerramientas($dbLanguage,0,0,"$txts{title1} $input{idNewStruct}",1,"#","#","#");	
print "<TABLE BGCOLOR="#FFFFFF" WIDTH=100%><TD>&nbsp;&nbsp;&nbsp;<TD><BR><TABLE>\n";
	
# dibujar arbol
&showNewTreeC($dbName,$idTopic,$idStructure,$input{'idNewTopic'},$input{'idNewStruct'}, $idUser);

# fin pagina
print "</table><br></table></br></body></html>";